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MODULE FILESIZE ( 
LAN ayAse fBL ISS) - 
wht 
BEGIN 


} 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 


is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt LA 
DANCE THE TERMS CH 
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® 
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* 

* 

: ® 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
* 

iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. . 
® 

B * 
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* 
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0 ! 

FACILITY: FI1IACP Structure Level 2 

4 ABSTRACT: 

0 This routine computes the number of blocks mapped by a file header. 

bi ENVIRONMENT : 

041 i STARLET operating system, including privileged system pervices 

ak ! and internal exec routines. These routines must be called in 

04 ! kernel mode. 

044 ! 

045 len 

ae 

B38 AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Jun-1979 9:22 

Bey MODIFIED BY: 

03¢ i v03-002 cps0002 Christian D. Saether — 31-July-1984 

Oez : Remove local declaration of get_map_pointer Linkage. 
Oe$ i v03-001 cosenet Christian D. Saether 30-Dec-1983 
Bpes } L_NORM Linkage. 
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’ 9 
1ersep-1986 t2isoc6 ET 


et 
; 64 


ee 1033 } GLOBAL ROUTINE FILE_SIZE (HEADER) : L_NORM = 

; 198 1 i 

: 68 1987 FUNCTIONAL DESCRIPTION: 

: 70 1928 1! This routine computes the number of blocks mapped by the specified 
3 q} 1390 : } file header. 

: ie 106¢ 1 | CALLING SEQUENCE: 

; ie er : FILE_SIZE (ARG1) 

: 7% 1065 1 | INPUT PARAMETERS: 

: a 1388 : } ARG1: header address 

: 79 1068 1 | IMPLICIT INPUTS: 

aoe ii 

: Be 1071 1 ! OUTPUT PARAMETERS: 

aE 2h) Bb tie 

>: 85 1074 1! IMPLICIT OUTPUTS: 

Ob ee it 

: 88 1077 1 ' ROUTINE VALUE: 

; 34 1oe8 : number of blocks in header 

: 91 1980 1 | SIDE EFFECTS: 

3; 9 1081 1! NONE 

3 9 186 1! 

; 94 1083 1 !-- 

5 95 1084 1 

; 96 1085 § BEGIN 

: eS 1989 5 MAP 

; DJ 1088 $ HEADER : REF BBLOCK; ! file header arg 

: 101 1090 2 GLOBAL REGISTER 

: 102 1091 COUNT = 6, ! retrieval pointer count 

: 103 103% LBN = 7, ' retrieval pointer LBN 

: 104 109 MAP_POINTER = 8; ! pointer to scan map area 

: 188 1998 § LOCAL 

: 107 1096 FILESIZE; ! size of file 

: 109 1098 2 EXTERNAL ROUTINE : 

3 19 199) GET_MAP_POINTER : L_MAP_POINTER; ! get value of file map pointer 
: 11 1101 

; 118 1108 : Scan the map area. Count up the file size from the retrieval pointers. 
: 115 1104 ‘ 

: 116 1105 FILESIZE = 0; 

+ 11 11 MAP_POINTER = .HEADER + .HEADERCFH2$B MPOFF SET} 82: 

: 118 18 UNTIL -MAP_POINTER GEQA .HEADER + (.HEADERCFH2SB_MPOFFSET] + .HEADERCFH2$B_MAP_INUSE]) * 2 
: 120 1108 BEGIN 


9 
1E-Se0-1984 0:28:04 yayctt OL fs4-82 v4.0-742 


aut 


: 121 1110 GET MAP_POINTER (); 

: 4 ; 1111 ILESIZE = .FILESIZE + .COUNT; 
: 4 1118 ENDS 

> 124 111 

> 125 1114 2 RETURN .FILESIZE; 

> 126 1115 ‘ 

: 127 1116 1 END; 


TITLE FILESIZE 

SIDENT \V04=000\ 
.EXTRN GET_MAP_POINTER 
.PSECT $CODE$,NOWRT,2 


SIZE, Save R2,R3,R6,R7,R8 


Oo 
= 


CC 00000 : FILE 
52 D4 00002 CLRL FILESIZE 
51 04 AC DO 00004 OVL HEADER, R1 
50 01 Al OA 90008 MOVZBL 1(R1), RO 
58 6140 3€ 0000C OVAW (R1)CROJ, MAP_POINTER 
51 04 AC DO 00010 1$: MOVL HEADER, R1 
50 1 Al 9A 00014 MOVZBL 1(R1), RO 
53 A Al 9A 00018 MOVZBL 38(R1} , R3 
50 53 60 0001C¢ ADDL R3, RO 
50 6140 3€ OO001F MOVAW  (R1)CROI, RO 
50 58 D1 00023 CMPL § MAP_POINTER, RO 
08 iE 90026 BGEQU 
00006 30 00028 BSBW  §_GET_MAP_POINTER 
52 56 CO 00028 ADDL2 COUNT, FILESIZE 
EO 11 0002 BRB 
50 52 DO 00030 2$: MOVL FILESIZE, RO 
04 00033 RET 
; Routine Size: 52 bytes, Routine Base: SCODE$ + 0000 
: 128 1117 
: 129 1118 1 END 
: 130 1119 © ELUDOM 
: PSECT SUMMARY 
3 Name Bytes Attributes 
: $CODES 52 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
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3; Size: 52 code, + 1° data bytes 
3; Run Time: 

; Elapsed Time: 00:20-7 

; Lines/CPU Min: 

3; Lexemes/CPU-Min: 23 59 
3 a Used: 101 pages 
3 a 


; Compilation Complete 


Veedde® It e013 99:38:98 EP SROdE TES YE :85324 

; eosccese Syahol§ coocecoce Pag Processing 

: File Total Loaded Percent Mapped Time 

; _$255$DUA28:(SYSLIBILIB.L32;1 18619 19 0 1000 00:02.0 

; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:F ILESIZE/OBJ=OBJ$:FILESIZE MSRC$:F ILESIZE/UPDATE=(ENH$:F ILESIZE) 
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